program main
	implicit none
	include <windows.ins>
	external soal1a, soal2a, soal5a, soal3a, soal7a, soal1b, soal4b, soal5b
	external soal2b, soal3b,soal4a, soal6a, soal6b
	winapp
	integer i
	
	!integral
	i	= winio@('%ca[Tubes 3 Metnum]%bg[grey]&')
	i	= winio@('%fn[Courier New]%ts%cnTubes Metnum 3&',2.0D0)
	i 	= winio@('%fn[Courier New]%ts&',1.0D0)
	i 	= winio@('%2nl%cn%`ob[named_l][Integral]&')
	i	= winio@('%cn%^bt[Soal 1]&', soal1a)
	i	= winio@('%1ta%^bt[Soal 2]&', soal2a)
	i	= winio@('%3nl%^bt[Soal ap1]&', soal3a)
	i	= winio@('%1ta%^bt[Soal ap2]&', soal4a)
	i	= winio@('%1ta%^bt[Soal ap3]&', soal5a)
	i	= winio@('%1ta%^bt[Soal ap4]&',soal6a)
	i	= winio@('%1ta%^bt[Soal ap5]&', soal7a)
	
	!differensial
	i 	= winio@('%cb%5nl%cn%`ob[named_l][Differensial]&')
	i	= winio@('%cn%^bt[Soal 1]&',soal1b)
	i	= winio@('%1ta%^bt[Soal 2]&',soal2b)
	i	= winio@('%3nl%^bt[Soal ap1]&',soal3b)
	i	= winio@('%1ta%^bt[Soal ap2]&',soal4b)
	i	= winio@('%1ta%^bt[Soal ap3]&',soal5b)
	i	= winio@('%1ta%^bt[Soal ap4]&', soal6b)
	
	i	= winio@('%cb%10nl%cn%bt[EXIT]')
	
end